home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - DOS Part 1 / DOS002.dsk / TV PATTERN GENERATOR.int < prev   
Text File  |  2012-02-16  |  2KB  |  47 lines
  1. 1 REM  TV PATTERN GENERATOR  INTERFACE AGE  AUG 78
  2. 2 DIM X(5),Y(5),B(10),A$(40),COL(6):X(1)=0:Y(1)=0
  3. 5 X(2)=10:X(3)=20:X(4)=30:X(5)=39:Y(2)=12:Y(3)=24:Y(4)=36:Y(5)=47
  4. 7 COL(1)=3:COL(2)=6:COL(3)=12:COL(4)=13:COL(5)=9:COL(6)=1
  5. 10 TEXT :CALL -936:TAB 8:VTAB 4:PRINT "T.V. PATERN GENERATOR"
  6. 20 TAB 4:VTAB 20
  7. 30 INPUT "(HIT 'RETURN' TO CONTINUE)  ",A$
  8. 40 TEXT :CALL -936
  9. 45 TAB 4:VTAB 4:PRINT "SELECT SCREEN DISPLAY BY NUMBER":TAB 4:VTAB 8
  10. 50 PRINT "1..SOLID COLOR":TAB 4:VTAB 10:PRINT "2..RAINBOW COLORS":TAB 4:VTAB 12
  11. 55 PRINT "3..DOT MATRIX":TAB 4:VTAB 14:PRINT "4..VERTICAL LINES":TAB 4:VTAB 16
  12. 60 PRINT "5..HORIZONAL LINES":TAB 4:VTAB 18:PRINT "6..CROSSHATCH"
  13. 65 TAB 8:VTAB 6:INPUT " --->",B:IF B<1 OR B>6 THEN 80
  14. 70 GR : POKE -16302,0:COLOR= 0:FOR I=40 TO 47:HLIN E0,39 AT I:NEXT I
  15. 75 COLOR= 15:DISP=B*100:GOTO DISP
  16. 80 VTAB 20:TAB 4:PRINT "BAD SLECTION, TRY AGAIN (1 THRU 6)":GOTO 65
  17. 100 REM  GENERATE SOLID COLOR
  18. 110 GR :N=3:FOR I=0 TO 15:COLOR= I:FOR M=1 TO 2:VLIN 0,39 AT N:N=N+1:NEXT M:NEXT I
  19. 115 TAB 1:VTAB 21:CALL -958:TAB 4
  20. 120 PRINT " 0 1 2 3 4 5 6 7 8 9101112131415"
  21. 125 TAB 4:VTAB 22
  22. 130 INPUT "SELECT COLOR (0 THRU 15)",C
  23. 135 IF C>0 AND C<16 THEN 150:TAB 4:VTAB 23
  24. 140 INPUT "BAD SELECTION, TRY AGAIN ",C:GOTO 135
  25. 150 COLOR= C: POKE -16302,0:FOR I=0 TO 39:VLIN E0,47 AT I:NEXT I
  26. 160 INPUT A$:GOTO 40
  27. 200 REM  RAINBOW COLORS
  28. 205 N=1
  29. 210 FOR L=1 TO 6:COLOR= COL(L)
  30. 220 FOR I=1 TO 6:M=N+I:VLIN E0,47 AT M
  31. 230 NEXT I:N=N+6:NEXT L
  32. 240 INPUT A$:GOTO 40
  33. 300 REM  DOT MATRIX GENERATOR
  34. 310 FOR I=1 TO 5:FOR J=1 TO 5:PLOT X(J),Y(I)
  35. 320 NEXT J:NEXT I:INPUT A$:GOTO 40
  36. 400 REM  VERTICAL LINE GENERATOR
  37. 410 FOR I=1 TO 5:VLIN E0,47 AT X(I):NEXT I
  38. 420 INPUT A$:GOTO 40
  39. 500 REM  HORIZONAL LINE GENERATOR
  40. 510 FOR I=1 TO 5:HLIN E0,39 AT Y(I):NEXT I
  41. 520 INPUT A$:GOTO 40
  42. 600 REM  CROSSHATCH GENERATOR
  43. 610 FOR I=1 TO 5:VLIN E0,47 AT X(I)
  44. 620 HLIN E0,39 AT Y(I):NEXT I
  45. 630 INPUT A$:GOTO 40
  46. 650 END 
  47.